home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / listing 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  416b  |  10 lines
  1. 100 poke 53281,1                :rem hintergrundfarbe 0 auf weiss
  2. 110 poke 53282,3                :rem hintergrundfarbe 1 auf cyan
  3. 120 poke 53283,8                :rem hintergrundfarbe 2 auf orange
  4. 130 poke 53270,peek(53270) or 16:rem multicolormodus einschalten
  5. 140 c=13*4096+8*256             :rem startadresse farbspeicher = c
  6. 150 printchr$(147)"aaaaaaaaaa"
  7. 160 for l=0 to 9
  8. 170 poke c+l,8                  :rem benutzt wird multicolor schwarz
  9. 180 next
  10.